subroutine drawline(nunit,indent,len_str)
  use param
  implicit none

  integer,intent(in) :: nunit,indent,len_str
  integer :: i
  character(len=len_linebuf) :: str

  do i=1,len_str
     str(i:i)='-'
  end do

  call log_msg1_indent(nunit,indent,str(1:len_str))

  return

end subroutine drawline
